#!/usr/bin/perl

open (FILE,"test") or die "test nicht vorhanden";
while ($a = <FILE>) {
        print "Ausgabe: " . $a;
}
close (FILE);

print "-" x 40 . "\n";

open (FILE,"test") or die "test nicht vorhanden";
while (<FILE>) {
        print;
}
close (FILE);
